Freelog 50/Freelog050.iso/DossierLogitheque/Bureautique/Mira/Mira_setup.exe/{app}/Mira.exe/0/RCDATA/TFORMMAIL/TFORMMAIL.txt

Text File | 2003-09-02 | 7KB | 334 lines

object FormMail: TFormMail
  Left = 387
  Top = 119
  BorderStyle = bsDialog
  Caption = 'Envoyer des Emails'
  ClientHeight = 426
  ClientWidth = 716
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Label1: TLabel
    Left = 261
    Top = 15
    Width = 16
    Height = 14
    Caption = 'De:'
  end
  object Label2: TLabel
    Left = 261
    Top = 39
    Width = 11
    Height = 14
    Caption = 'A:'
  end
  object Label3: TLabel
    Left = 261
    Top = 63
    Width = 28
    Height = 14
    Caption = 'Objet:'
  end
  object Label4: TLabel
    Left = 261
    Top = 115
    Width = 44
    Height = 14
    Caption = 'Message'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object SC_Line2: TSC_Line
    Left = 247
    Top = 0
    Width = 3
    Height = 427
    BorderShape = bsRightLine
  end
  object SC_Line1: TSC_Line
    Left = 12
    Top = 35
    Width = 226
    Height = 4
    BorderShape = bsBottomLine
  end
  object SC_Line3: TSC_Line
    Left = 12
    Top = 360
    Width = 226
    Height = 1
    BorderShape = bsBottomLine
  end
  object SpeedBTous: TSpeedButton
    Left = 15
    Top = 43
    Width = 55
    Height = 18
    Cursor = crHandPoint
    Hint = 'Tout s'#233'lectionner'
    Caption = 'Tous'
    ParentShowHint = False
    ShowHint = True
    Transparent = False
    OnClick = SpeedBTousClick
  end
  object SpeedBAucun: TSpeedButton
    Left = 70
    Top = 43
    Width = 55
    Height = 18
    Cursor = crHandPoint
    Hint = 'D'#233's'#233'lectionner tout'
    Caption = 'Aucun'
    ParentShowHint = False
    ShowHint = True
    Transparent = False
    OnClick = SpeedBAucunClick
  end
  object SpeedBOpen: TSpeedButton
    Left = 125
    Top = 43
    Width = 55
    Height = 18
    Cursor = crHandPoint
    Hint = 'Ouvrir une s'#233'lection existante'
    Caption = 'Ouvrir'
    ParentShowHint = False
    ShowHint = True
    Transparent = False
    OnClick = SpeedBOpenClick
  end
  object SpeedBSave: TSpeedButton
    Left = 180
    Top = 43
    Width = 55
    Height = 18
    Cursor = crHandPoint
    Hint = 'Enregistrer la s'#233'lection'
    Caption = 'Sauver'
    ParentShowHint = False
    ShowHint = True
    Transparent = False
    OnClick = SpeedBSaveClick
  end
  object SpeedBFile: TSpeedButton
    Left = 681
    Top = 84
    Width = 22
    Height = 22
    Cursor = crHandPoint
    Hint = 'Joindre un fichier'
    Flat = True
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000120B0000120B00001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
      DADAADADA70007ADADADDADA70DAD07ADADAADAD0DA0AD0DADADDADA0A0A0A0A
      DADAADAD0D0D0D0DADADDADA0A0A0A0ADADAADAD0D0D0D0DADADDADA0A0A0A0A
      DADAADAD0D0D0D0DADADDADA0A0A0A0ADADAADAD0D0D0D0DADADDADADA0A0A0A
      DADAADADAD0DAD0DADADDADADAD000DADADAADADADADADADADAD}
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedBFileClick
  end
  object Label5: TLabel
    Left = 261
    Top = 87
    Width = 38
    Height = 14
    Caption = 'Joindre:'
  end
  object MemoMail: TMemo
    Left = 261
    Top = 130
    Width = 442
    Height = 204
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 4
  end
  object ButtonCancel: TButton
    Left = 130
    Top = 395
    Width = 108
    Height = 22
    Cancel = True
    Caption = '&Fermer'
    ModalResult = 2
    TabOrder = 10
  end
  object EditDe: TEdit
    Left = 300
    Top = 12
    Width = 403
    Height = 22
    TabOrder = 0
  end
  object EditObjet: TEdit
    Left = 300
    Top = 60
    Width = 403
    Height = 22
    TabOrder = 2
  end
  object ButtonSelect: TButton
    Left = 12
    Top = 12
    Width = 226
    Height = 22
    Caption = 'Au destinataire &s'#233'lectionn'#233' >>'
    TabOrder = 5
    OnClick = ButtonSelectClick
  end
  object ButtonAll: TButton
    Left = 12
    Top = 330
    Width = 226
    Height = 22
    Caption = 'Aux destinataires s'#233'lectionn'#233's de la &liste'
    TabOrder = 8
    OnClick = ButtonAllClick
  end
  object MemoEvents: TMemo
    Left = 261
    Top = 341
    Width = 442
    Height = 50
    TabStop = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 12
  end
  object ButtonParamConnect: TButton
    Left = 12
    Top = 369
    Width = 226
    Height = 22
    Caption = '&Param'#232'tres du compte'
    TabOrder = 9
    OnClick = ButtonParamConnectClick
  end
  object ProgressBar: TProgressBar
    Left = 261
    Top = 397
    Width = 442
    Height = 17
    Min = 0
    Max = 100
    Step = 1
    TabOrder = 13
  end
  object ComboA: TComboBox
    Left = 300
    Top = 36
    Width = 403
    Height = 22
    Cursor = crHandPoint
    DropDownCount = 15
    ItemHeight = 14
    Sorted = True
    TabOrder = 1
  end
  object ListViewMail: TListView
    Left = 12
    Top = 63
    Width = 226
    Height = 226
    Cursor = crHandPoint
    Columns = <
      item
        Caption = 'Nom'
        Width = 115
      end
      item
        Caption = 'Pr'#233'nom'
        Width = 88
      end>
    HideSelection = False
    MultiSelect = True
    ReadOnly = True
    RowSelect = True
    ShowColumnHeaders = False
    SmallImages = MainFormMira.ImageList1
    TabOrder = 6
    ViewStyle = vsReport
  end
  object RadioMail: TRadioGroup
    Left = 12
    Top = 291
    Width = 226
    Height = 34
    Caption = ' Mails '
    Columns = 2
    ItemIndex = 0
    Items.Strings = (
      'Domicile'
      'Bureau')
    TabOrder = 7
    OnClick = RadioMailClick
  end
  object EditJoint: TEdit
    Left = 300
    Top = 84
    Width = 380
    Height = 22
    TabOrder = 3
  end
  object CustomButtonHelp: TButton
    Left = 12
    Top = 395
    Width = 108
    Height = 22
    Hint = '|Aide'
    Caption = '&Aide'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 11
    OnClick = CustomButtonHelpClick
  end
  object NMSMTP1: TNMSMTP
    Port = 25
    ReportLevel = 0
    OnDisconnect = NMSMTP1Disconnect
    OnConnect = NMSMTP1Connect
    OnConnectionFailed = NMSMTP1ConnectionFailed
    OnConnectionRequired = NMSMTP1ConnectionRequired
    EncodeType = uuMime
    ClearParams = True
    SubType = mtPlain
    Charset = 'us-ascii'
    OnRecipientNotFound = NMSMTP1RecipientNotFound
    OnHeaderIncomplete = NMSMTP1HeaderIncomplete
    OnSendStart = NMSMTP1SendStart
    OnSuccess = NMSMTP1Success
    OnFailure = NMSMTP1Failure
    Left = 679
    Top = 106
  end
end